home *** CD-ROM | disk | FTP | other *** search
- ; List the ports in the order you want to view them, along with
- ; TrapDoor's AREXX port and logfile if TrapDoor is running on that port.
-
- port TR0 TrapDoor logs:trapdoor.log
- ;port TR1 TrapTR1 logs:traptr1.log
- port TR2
- ;port TL0
-
- ; Show all gadgets at startup
- ;showall
-
- ; Select what you don't want to see
- ;nolevel
- ;notime
- ;nocity
- ;nobaud
-
- ; Use handles instead?
- ;alias
-
- ; Screen and window definitions
- ; font is main font, gadfont is for gadgets
-
- font XEN.font 9
- ;font topaz.font 8
- gadfont XHelvetica.font 11
- ;gadfont times.font 11
-
- screen Float
- ;screen Workbench
- ;screen TrapDoor
-
- ; lace or nolace
- lace
-
- ;screentop 400
- ;screentop 180
-
- ; display id (hex) for more control
- ; warning - if you use dispid you may have to adjust screentop to
- ; make the floating screen appear. this works best if yahoo and
- ; your default public screen have the same interlace attribute.
-
- ; hires
- ;dispid 8000
- ; hireslace
- ;dispid 8004
- ; superlace
- ;dispid 8024
- ; hamlace
- ;dispid 804
-
- ;sizeup
-
- top 380
- left 0
- width 710
- zoomleft 500
- zoomtop 0
-
- ; important: depth must be listed before colors
-
- ; green color scheme
- ;depth 3
- ;colors 383,222,dd0,fff,aea,c30,d4d,040
- ;pen_gadtext 3
- ;pen_text 7,4
- ;pen_high 5,2
- ;pen_alert 3,6
-
- ; blue color scheme
- ;depth 3
- ;colors 33a,222,08f,fff,0cf,c30,f80,004
- ;pen_gadtext 3
- ;pen_text 7,4
- ;pen_high 3,2
- ;pen_alert 3,6
-
- ; grape color scheme
- ;depth 3
- ;colors 80a,000,b8e,fff,daf,c0c,dd4,044
- ;pen_gadtext 3
- ;pen_text 7,4
- ;pen_high 3,5
- ;pen_alert 5,6
-
- ; four colors
- ;depth 2
- ;colors 888,000,fff,f80
- ;pen_gadtext 2
- ;pen_text 2,1
- ;pen_high 1,2
- ;pen_alert 2,3
-
- ; another 8-color scheme
- depth 3
- colors 888,000,fff,f80,0f0,ff0,aaa,0ff
- pen_gadtext 2
- pen_text 4,1
- pen_high 1,7
- pen_alert 1,5
-
- ; window title
- title Look who's using CYBERMIGA!
-
- ; Custom gadgets definitions.
- ;
- ; $1 is the port, $2 is the user's full name, $3 is underscored name,
- ; $4 is trapdoor arexx port, $5 is trapdoor logfile
- ;
- ; If the command name begins with a dash, the command can be any of
- ; YaHoo's built-in AREXX commands.
- ;
-
- gad_glob TR2 execute terminus:Terminus-TR2
- gad_glob Shell newshell con:204/28/504/250/Shell/Close from s:shell-startup
- gad_glob Term terminus:Terminus
- gad_glob WB -open Workbench
- gad_glob TD -open TrapDoor
- gad_glob Float -open Float
-
- gad_glob Joe_Security sys:rexxc/rx fido:batch/joe_security.rexx
- gad_glob netscan fido:dmc netscan
- gad_glob export fido:dmc export
- gad_glob crash fido:dmc crash
- gad_glob P_Don execute s:poll 1:120/229
- gad_glob H_Don fido:dmc changeflow 1:120/229 ? to H
- gad_glob P_midi execute s:poll 199:1001/0
- gad_glob H_midi fido:dmc changeflow 199:1001/0 ? to H
- gad_glob P_Tom execute s:poll 1:134/2004
- gad_glob H_Tom fido:dmc changeflow 1:134/2004 ? to H
- gad_glob P_Fido execute s:poll 1:104/918
- gad_glob P_115 execute s:poll 1:104/115
- gad_glob Emacs execute s:emacs
- gad_glob MuchMore work:bin/muchmore
-
- ;gad_user Files work:bin/ls -l user:$3 >"con:0/0/600/200/$2/wait/close"
- gad_user Events sys:utilities/more user:$3/event.log
- gad_user CID sc:c/grep -q "$2" doors:whoisit/caller.log >"con:0/0/600/200/$2/wait/close"
- ; Send arexx command to gnuemacs to edit the user's notes file
- gad_user Notes sys:rexxc/rx "address EMACS1 '(find-file ""dlgconfig:notes/$3.notes"")'"
- gad_user Snoop dlg:tscreen -p $1 -o
- gad_user Close dlg:tscreen -p $1 -c
- gad_user Chat dlg:chat -p $1 -t
- gad_user Clr -alert $1
- gad_user +10 dlg:addtime -p $1 -m 10
- gad_user -10 dlg:addtime -p $1 -m -10
- gad_user Info work:bin/userdata $2
- gad_user Kill dlg:tkill -p $1
- gad_user Recover dlg:trecover -p $1
- gad_idle Busy dlg:getport -p $1 -k YaHoo -r "Grabbed by YaHoo" -l 1 -i
- gad_idle Unbusy dlg:freeport -p $1 -k YaHoo
-
- gad_glob Trap_Log work:bin/read $5
- gad_glob BBS_OFF execute s:bbs off >"con:100/100/400/200/$2/wait/close"
- gad_glob TL0 dlg:immed TL0 19200 19200
- gad_glob Hide -hide
- gad_glob Quit -quit
-